﻿Public Class MantenimientoBasico

    Sub Agregar(ByVal mantenimiento As Ejemplo.BE.MantenimientoBasico)
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        dsMantinimiento.Agregar(mantenimiento)
    End Sub

    Function Editar(ByVal mantenimiento As Ejemplo.BE.MantenimientoBasico) As Boolean
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantinimiento.Editar(mantenimiento)
    End Function


    Function Eliminar(ByVal id As Integer) As Boolean
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantinimiento.Eliminar(id)
    End Function

    Function Listar() As List(Of Ejemplo.BE.MantenimientoBasico)
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantinimiento.Listar
    End Function


    Function Obtener(ByVal id As Integer) As Ejemplo.BE.MantenimientoBasico
        Dim dsMantinimiento As Ejemplo.DS.MantenimientoBasico
        dsMantinimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantinimiento.Obtener(id)
    End Function


    Function Filtrar(ByVal mantenimiento As Ejemplo.BE.MantenimientoBasico) As List(Of Ejemplo.BE.MantenimientoBasico)
        Dim dsMantenimiento As Ejemplo.DS.MantenimientoBasico
        dsMantenimiento = New Ejemplo.DS.MantenimientoBasico
        Return dsMantenimiento.Filtrar(mantenimiento)
    End Function




End Class